%
'------------------------------------
' paginacion
'------------------------------------
ipp = 12
pag = int("0" & Request.Querystring("pag"))
cat = request.queryString("cat")
subca = request.queryString("subca")
if Session("idcliente")<>"" then
strSQL1 = "select count(*) as num from documentos where categoria="&cat&" and subcategoria="&subca&" and ((publicar<>0 and privado<>0) or (publicar<>0 and cliente="&Session("idcliente")&") or (publicar<>0 and privado=0 and cliente=0))"
SQLQuery = "select * from documentos where categoria="&cat&" and subcategoria="&subca&" and ((publicar<>0 and privado<>0) or (publicar<>0 and cliente="&Session("idcliente")&") or (publicar<>0 and privado=0 and cliente=0)) order by fechapublica desc"
else
strSQL1 = "select count(*) as num from documentos where categoria="&cat&" and subcategoria="&subca&" and publicar<>0 and privado=0 and cliente=0"
SQLQuery = "select * from documentos where categoria="&cat&" and subcategoria="&subca&" and publicar<>0 and privado=0 and cliente=0 order by fechapublica desc"
end if
'response.write(strSQL1)
'response.end
Set objRS1 = ObjDbConnection.Execute(strSQL1)
Set docu = OBJdbConnection.Execute(SQLQuery)
total = objRS1("num")
Set objRS1=nothing
numpag = int((total-1)/ipp)
Randomize
aleat = Int(Rnd(1)*10000000)
'PAGINACION
if pag > numpag then pag=pag-1 END IF
if pag < 0 then pag=0 END IF
If pag <> 0 Then
docu.Move (pag*ipp)
End If
%>
<%
SQLQuery = "select * from categorias where idcategoria="&cat
Set catnom = OBJdbConnection.Execute(SQLQuery)
If catnom.eof then
cat1 = "Sin categoría"
else
cat1 = catnom("nombre")
end if
if subca<>0 then
SQLQuery = "select * from subcategorias where idsubcategoria="&subca
Set subcanom = OBJdbConnection.Execute(SQLQuery)
sub1 = subcanom("nombre")
else
sub1 = "Otras subcategorías"
end if
%>
<%=cat1%> - <%=sub1%>
<%if not docu.eof then
cuenta=1
Do while not docu.eof
if Cuenta > ipp Then
Exit Do
end if
docnom=docu("nombre")
%>